home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / prog / lb09c.zip / SIEVE.BAS < prev    next >
BASIC Source File  |  1992-03-06  |  497b  |  24 lines
  1.  
  2.  
  3.     'This is a Sieve benchmark translated from BYTE 1985
  4.     ' May, page 286
  5.  
  6.     size = 7000
  7.     dim flags(7001)
  8.     print "Start one iteration: "; time$()
  9.     count = 0
  10.     for i = 0 to size
  11.     flags(i) = 1
  12.     next i
  13.     for i = 0 to size
  14.     if flags(i) = 0 then 170
  15.     prime = i + i + 3
  16.     k = i + prime
  17. 120 if k > size then 160
  18.     flags(k) = 0
  19.     k = k + prime
  20.     goto 120
  21. 160 count = count + 1
  22. 170 next i
  23.     print time$(); " done: "; count; " primes found."
  24.